program class1q1; uses wincrt;
var A, B, C : integer;
    x1, x2 : real;
begin
  write('A: ');
  readln(A);
  write('B: ');
  readln(B);
  write('C: ');
  readln(C);
  writeln;
  x1 := (-B+sqrt(B*B-4*A*C))/(2*A);
  x2 := (-B-sqrt(B*B-4*A*C))/(2*A);
  writeln('The roots are ',x1:0:3,' and ',x2:0:3,'.')
end.
